home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / rpgedi1a / frmabout.frm (.txt) < prev    next >
Visual Basic Form  |  1999-10-18  |  4KB  |  130 lines
  1. VERSION 5.00
  2. Begin VB.Form frmAbout 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   3  'Fixed Dialog
  5.    ClientHeight    =   4455
  6.    ClientLeft      =   45
  7.    ClientTop       =   45
  8.    ClientWidth     =   6510
  9.    ControlBox      =   0   'False
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4455
  14.    ScaleWidth      =   6510
  15.    ShowInTaskbar   =   0   'False
  16.    StartUpPosition =   2  'CenterScreen
  17.    Begin VB.Label lblVersion 
  18.       AutoSize        =   -1  'True
  19.       BackStyle       =   0  'Transparent
  20.       Caption         =   "Version:"
  21.       BeginProperty Font 
  22.          Name            =   "Times New Roman"
  23.          Size            =   14.25
  24.          Charset         =   0
  25.          Weight          =   400
  26.          Underline       =   0   'False
  27.          Italic          =   0   'False
  28.          Strikethrough   =   0   'False
  29.       EndProperty
  30.       ForeColor       =   &H00FFFFFF&
  31.       Height          =   285
  32.       Left            =   360
  33.       TabIndex        =   3
  34.       Top             =   2640
  35.       Width           =   1065
  36.    End
  37.    Begin VB.Label lblAuthor 
  38.       AutoSize        =   -1  'True
  39.       BackStyle       =   0  'Transparent
  40.       Caption         =   "By Patrick Elliott"
  41.       BeginProperty Font 
  42.          Name            =   "Times New Roman"
  43.          Size            =   14.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       ForeColor       =   &H00FFFFFF&
  51.       Height          =   315
  52.       Left            =   360
  53.       TabIndex        =   2
  54.       Top             =   1920
  55.       Width           =   1890
  56.    End
  57.    Begin VB.Image imgTitle 
  58.       Height          =   1230
  59.       Left            =   0
  60.       Picture         =   "frmAbout.frx":0000
  61.       Top             =   0
  62.       Width           =   2685
  63.    End
  64.    Begin VB.Label lblTitle 
  65.       AutoSize        =   -1  'True
  66.       BackStyle       =   0  'Transparent
  67.       Caption         =   "Visual Basic RPG"
  68.       BeginProperty Font 
  69.          Name            =   "Times New Roman"
  70.          Size            =   14.25
  71.          Charset         =   0
  72.          Weight          =   400
  73.          Underline       =   0   'False
  74.          Italic          =   0   'False
  75.          Strikethrough   =   0   'False
  76.       EndProperty
  77.       ForeColor       =   &H00FFFFFF&
  78.       Height          =   285
  79.       Left            =   360
  80.       TabIndex        =   1
  81.       Top             =   1560
  82.       Width           =   2205
  83.    End
  84.    Begin VB.Label lblButton 
  85.       AutoSize        =   -1  'True
  86.       BackColor       =   &H00000000&
  87.       BackStyle       =   0  'Transparent
  88.       Caption         =   "Return"
  89.       BeginProperty Font 
  90.          Name            =   "Times New Roman"
  91.          Size            =   26.25
  92.          Charset         =   0
  93.          Weight          =   400
  94.          Underline       =   0   'False
  95.          Italic          =   0   'False
  96.          Strikethrough   =   0   'False
  97.       EndProperty
  98.       ForeColor       =   &H00FFFFFF&
  99.       Height          =   525
  100.       Left            =   4800
  101.       TabIndex        =   0
  102.       Top             =   3840
  103.       Width           =   1635
  104.    End
  105. Attribute VB_Name = "frmAbout"
  106. Attribute VB_GlobalNameSpace = False
  107. Attribute VB_Creatable = False
  108. Attribute VB_PredeclaredId = True
  109. Attribute VB_Exposed = False
  110. Private Sub Form_Load()
  111.     'put the current version into the version label
  112.     lblVersion.Caption = "Version: " & App.Major & "." & App.Minor & "." & App.Revision
  113. End Sub
  114. Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  115.     'make the label white
  116.     lblButton.ForeColor = QBColor(15)
  117. End Sub
  118. Private Sub lblButton_Click()
  119.     'play the button sound
  120.     Call sndPlaySound(sndButton, &H1)
  121.     'hide this form and re-inable the main form
  122.     frmAbout.Hide
  123.     frmStartup.Enabled = True
  124.     frmStartup.SetFocus
  125. End Sub
  126. Private Sub lblButton_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  127.     'make the lable red
  128.     lblButton.ForeColor = QBColor(12)
  129. End Sub
  130.